64'er Special 3/64er_Magazin_Sonderheft_03_86-03_1986_Markt__Technik_de_Side_B.d64/galgenraten ii

Commodore BASIC | 2022-10-26 | 9KB | 488 lines

0 dataschlittschuh
1 dataregenwurm
2 dataphysikbuch
3 datahausmannskost
4 dataobservatorium
5 datamaskottchen
6 dataknochenbruch
7 dataferienjob
8 datataucherbrille
9 datadarmverstopfung
10 dataharemsdame
11 dataautowaschanlage
12 datadirndlkleid
13 datatrachtenanzug
14 datatiefschlag
15 datakannibalismus
16 dataquizsendung
17 dataplastikbeutel
18 dataportemonai
19 datapreiselbeere
20 datagroschenroman
21 datataschenrechner
22 datakarnickelstall
23 datacomputerfreak
24 dataarzneimittel
25 datamedikament
26 datajongleur
27 datainstallateur
28 datachampignon
29 datainformation
30 datatischtennis
31 dataradiorecorder
32 dataliebespaar
33 dataantialkoholiker
34 databundeskanzler
35 datababyschnuller
36 dataspiegelbild
37 datacellophan
38 datawasserklosett
39 datazoologie
40 datahaifischflosse
41 datavokabelheft
42 datafreundschaft
43 datagesellschaft
44 datahaarwuchsmittel
45 datakirchturmuhr
46 datahonigmelone
47 datagasthaus
48 datadurchschnitt
49 dataschnurrbart
50 datakindergarten
51 dataorientteppich
52 datatemperament
53 datastuhlgang
54 datamiezekatze
55 databimmelbahn
56 dataquarzuhr
57 datakompliment
58 datakondensmilch
59 datakombination
60 dataregenmantel
61 datakrankenwagen
62 datakatastrophe
63 datatolpatsch
64 datatalismann
65 datahagebutte
66 datahaschisch
67 datahaschee
68 dataingenieur
69 datajournalist
70 datakassette
71 datateenager
72 datatachometer
73 datagrillparty
74 dataschmalzlocke
75 datamittelscheitel
76 datastricknadel
77 dataexporteur
78 datauntergang
79 dataameisenhaufen
80 dataplumbsklo
81 datazahnpasta
82 datapicknickkorb
83 datazinnober
84 datazentimeter
85 datatornister
86 dataseifenschaum
87 datathunfisch
88 databrillengestell
89 datazyankali
90 datatopflappen
91 datablaubeertorte
92 datasprinterhose
93 datahundeknochen
94 databrieftaube
95 datatintenpatrone
96 dataquellwasser
97 datakassenbon
98 datapetroleum
99 datapetersilie
100 dataregenschauer
101 datapullover
102 dataplanschbecken
103 datagirokonto
104 dataexperiment
105 datavollmilch
106 datapolterabend
107 datastandesamt
108 datasprichwort
109 datatuberkulose
110 datareklamesendung
111 datareagenzglas
112 dataorchidee
113 datapampelmuse
114 datazitrusfrucht
115 datapantoffel
116 datajustizirrtum
117 datacowboyfilm
118 datacurrysauce
119 datavolleyball
120 datadschunke
121 datadschungeltier
122 datagastronomie
123 dataeidechse
124 databimsstein
125 databisamratte
126 databasketball
127 datapurzelbaum
128 datarangierbahnhof
129 dataquasselei
130 dataquacksalber
131 dataquadratmeter
132 datarauchverbot
133 datareproduktion
134 datasaboteur
135 datarodelbahn
136 datasalmiakgeist
137 datasamariter
138 datasanatorium
139 datasandwich
140 dataschlafittchen
141 dataschaschlik
142 dataschabernack
143 datasaxophon
144 datahinrichtung
145 dataschimpanse
146 dataschlamperei
147 datavegetarier
148 datautensilie
149 dataakkordarbeit
150 dataallheilmittel
151 dataanalphabet
152 dataangorakatze
153 dataappartment
154 dataaquarium
155 dataastronaut
156 dataausrufezeichen
157 databagatelle
158 databarikade
159 databazillus
160 datacharakter
161 datachrysantheme
162 datacontainer
163 datafarbfernseher
164 databranntwein
165 databunsenbrenner
166 databumerang
167 databuchstabe
168 databuddhismus
169 databritannien
170 databeglaubigung
171 datagarderobe
172 datatraubenzucker
173 dataeinschreiben
174 databriefdrucksache
175 dataelektriker
176 dataschnellbahn
177 dataschlamassel
178 dataschlaraffenland
179 dataschneeball
180 dataschokolade
181 dataschmetterling
182 datatraubensaft
183 dataozeandampfer
184 dataorganisator
185 datanachwuchs
186 datamurmeltier
187 datanachmittag
188 datamagnetband
189 datamandarine
190 datamansarde
191 datamanuskript
192 datamarathonlauf
193 datamarionette
194 datamarmelade
195 datamakkaroni
196 datameerrettich
197 datamettwurst
198 datarechenschaft
199 datarandalierer
200 dataredakteur
201 datasadismus
202 dataverabredung
203 dataresidenz
204 datarestaurator
205 datarevanche
206 datarevolution
207 datarhytmus
208 datarizinusoel
209 datarollbraten
210 datazuckerrohr
211 datasabotage
212 datawildschwein
213 dataschablone
214 dataschauspieler
215 dataschiedsrichter
216 dataschlamperei
217 dataschornstein
218 datalebensmittel
219 dataschrebergarten
220 dataschulbus
221 dataschwiegereltern
222 dataselterswasser
223 datamilchshake
224 datasensation
225 dataskandinavien
226 datasmaragd
227 datasphinx
228 datasteward
229 dataverabredung
230 dataaluminiumfolie
231 datasymphonie
232 datakreppapier
233 dataschicksalsschlag
234 dataumlaufbahn
235 dataureinwohner
236 datawahrzeichen
237 datawegerich
238 dataweizenbrot
239 dataweinbrand
240 databranntwein
241 dataschucreme
242 dataseefahrervolk
243 datazapfenstreich
244 datazitadelle
245 datazeppelin
246 datazervelatwurst
247 datastundenplan
248 databilderbuch
249 dataessenszeit
250 datatomatensalat
251 datahauskatze
252 datakanarienvogel
253 dataflaschenkorken
254 dataholzgestell
255 datataschendieb
256 data704,32,704,16,685,16,643,32,571,32,596,32,643,32,1020,14,643,16,571,24
257 data596,8,685,32,643,32,704,32,739,32,1020,14,704,16,685,16,704,16,739,16
258 data704,16,685,32,1020,14,685,16,704,16,685,16,643,32,571,32,596,32,643,32
259 data1020,14,643,16,571,24,596,8,685,32,643,32,704,32,739,32,1020,14,739,16
260 data704,16,685,16,643,32,596,32,685,16,704,32,739,16,704,48,1020,64,-1
261 data1020,10,881,5,881,15,881,5,917,20,917,20,929,20,929,20,953,30,939,10
262 data917,10,953,5,939,15,917,5,897,20,944,40,929,15,911,5,917,40,1020,64,-1,
263 fora=1to7
264 (NULL)a,""
265 next
266 (NULL)8,"_"
267 poke51,0:poke52,60:poke55,0:poke56,60:poke216,0:poke217,0:poke1344,1
268 poke65286,11:poke65298,8:poke65299,60
269 (NULL)4,1:(NULL)0,1
270 print"[147]"
271 (NULL)1,16,5
272 (NULL)1,14,0,"_[#_]%'[)]%"
273 (NULL)1,14,1,chr$(34)+"\$"+chr$(34)+"^&(\*^&"
274 (NULL)1,3,5
275 (NULL)1,0,6,"b[216][161][161][213] [212][223][167][211][217][213][220] s[216][213]:"
276 (NULL)1,3,8,"z[162][223] c[221][219][255][162][161][213][223][209][162][160][163][209][215][218] [212][213][160] [165][162] [213][223][223][209][161][213][220][212][213][220]"
277 (NULL)1,3,9,"w[221][223][161][213][160]!"
278 (NULL)1,3,11,"z[162][223] e[216][220][214][209][210][213] [212][213][160] [165][162] [213][223][223][209][161][213][220][212][213][220] w[221][223][161][213][160]"
279 (NULL)1,3,12,"[212][162][223][211][215] [213][216][220][213] [209][220][212][213][223][213] p[213][223][160][221][220]!"
280 (NULL)1,2,4
281 (NULL)1,0,8,"f1"
282 (NULL)1,0,11,"f2[146]"
283 (NULL)1,2,1
284 (NULL)1,22,24,"m[209][212][213] [210][164] s[163][213][220] j[162][220][214]"
285 poke65286,27
286 ifpeek(198)=4then359
287 ifpeek(198)=5then289
288 goto286
289 (NULL)1,2,4
290 (NULL)1,0,11,"[130]f2[146]"
291 fora=1023to0step-8
292 (NULL)a/128
293 (NULL)1,a,1
294 next
295 poke65286,11
296 print"[147]"
297 (NULL)1,16,5
298 (NULL)1,14,0,"_[#_]%'[)]%"
299 (NULL)1,14,1,chr$(34)+"\$"+chr$(34)+"^&(\*^&"
300 (NULL)1,3,5
301 (NULL)1,0,6,"b[216][161][161][213] [218][209][160][160][213][220] s[216][213] [160][216][211][215] [213][216][220] w[221][223][161] [213][216][220][214][213][210][213][220]!"
302 (NULL)1,0,8,"w[213][220][220] s[216][213] [213][216][220][213][220] f[213][215][218][213][223] [215][209][210][213][220], [212][209][220][220] [219][167][160][160][213][220]"
303 (NULL)1,0,9,"s[216][213] [212][216][213] t[209][160][161][213]      [212][223][167][211][217][213][220]!"
304 (NULL)1,0,11,"w[213][220][220] [212][209][160] w[221][223][161] [213][216][214][213][214][213][210][213][220] [216][160][161], [212][209][220][220] [219][167][160][160][213][220]"
305 (NULL)1,0,12,"s[216][213] [212][216][213] t[209][160][161][213]        [212][223][167][211][217][213][220]!"
306 (NULL)1,2,4
307 (NULL)1,14,9,"help"
308 (NULL)1,14,12,"return[146]"
309 (NULL)1,2,1
310 (NULL)1,22,24,"m[209][212][213] [210][164] s[163][213][220] j[162][220][214]"
311 poke65286,27
312 (NULL)1,8,6
313 (NULL)1,12,16,"[130]@[132]@@@@@@@@@@@@@@"
314 clr
315 (NULL)6
316 poke239,0
317 geta$
318 ifa$="_"andlen(b$)>0then329
319 ifa$=chr$(13)anda>4then335
320 ifasc(a$)>90orasc(a$)<65then317
321 (NULL)1,836,4
322 a=a+1
323 ifa=16then312
324 (NULL)1,11+a,16,a$
325 b$=b$+a$
326 ifa=15then316
327 (NULL)1,12+a,16,"[130]@[132]"
328 goto316
329 b$=left$(b$,len(b$)-1)
330 a=a-1
331 (NULL)1,12+a,16,"[130]@[132]"
332 ifa<14thenprint"@"
333 (NULL)1,836,4
334 goto316
335 poke65286,11
336 print"[147]"
337 (NULL)1,16,5
338 (NULL)1,14,0,"_[#_]%'[)]%"
339 (NULL)1,14,1,chr$(34)+"\$"+chr$(34)+"^&(\*^&"
340 (NULL)1,3,5
341 (NULL)1,0,6,"b[216][161][161][213] [212][223][167][211][217][213][220] s[216][213]:"
342 (NULL)1,3,8,"w[213][220][220] [212][209][160] w[221][223][161] [223][216][211][215][161][216][214]"
343 (NULL)1,3,9,"[214][213][160][211][215][223][216][213][210][213][220] [216][160][161]!"
344 (NULL)1,3,11,"w[213][220][220] [212][209][160] w[221][223][161] [220][216][211][215][161] [223][216][211][215][161][216][214]"
345 (NULL)1,3,12,"[214][213][160][211][215][223][216][213][210][213][220] [216][160][161]!"
346 (NULL)1,2,4
347 (NULL)1,0,8,"f1"
348 (NULL)1,0,11,"f2[146]"
349 (NULL)1,8,6
350 (NULL)1,12,16,"@@@@@@@@@@@@@@@"
351 (NULL)1,12,16,b$
352 (NULL)1,2,1
353 (NULL)1,22,24,"m[209][212][213] [210][164] s[163][213][220] j[162][220][214]"
354 poke65286,27
355 poke239,0
356 ifpeek(198)=5then291
357 ifpeek(198)<>4then356
358 goto363
359 (NULL)1,2,4
360 (NULL)1,0,8,"[130]f1[146]"
361 restoreint(rnd(1)*314159265)and255
362 readb$
363 fora=1023to0step-8
364 (NULL)a/128
365 (NULL)1,a,1
366 next
367 poke65286,11
368 print"[147]"
369 (NULL)1,16,5
370 (NULL)1,14,0,"_[#_]%'[)]%"
371 (NULL)1,14,1,chr$(34)+"\$"+chr$(34)+"^&(\*^&"
372 (NULL)1,3,5
373 (NULL)1,1,4,"b[216][161][161][213] [214][213][210][213][220] s[216][213] i[215][223][213] b[162][211][215][160][161][209][210][213][220] [213][216][220]!"
374 (NULL)1,8,6
375 forb=0tolen(b$)-1
376 (NULL)1,(28-len(b$))/2+b,10,"@"
377 next
378 (NULL)1,2,1
379 (NULL)1,22,24,"m[209][212][213] [210][164] s[163][213][220] j[162][220][214]"
380 poke65286,27
381 c$=b$
382 a=1
383 (NULL)6
384 (NULL)
385 poke239,0
386 get(NULL)a$
387 ifasc(a$)>90orasc(a$)<65or(NULL)(d$,a$)>0then(NULL)
388 (NULL)1,836,5
389 d$=d$+a$
390 if(NULL)(b$,a$)=0thenonagoto400,409,417,425,432,439,447,455
391 (NULL)1,8,6
392 (NULL)1,(28-len(b$))/2-1+(NULL)(c$,a$),10,a$
393 mid$(c$,(NULL)(c$,a$),1)=" "
394 c=c+1
395 if(NULL)(c$,a$)>0then392
396 ifc<len(b$)then(NULL)
397 restore261
398 poke217,(peek(217)+1)and255
399 goto465
400 (NULL)1,8,6
401 (NULL)1,0,16,"f[209][218][160][211][215][213] b[162][211][215][160][161][209][210][213][220]:"
402 (NULL)1,3,3
403 (NULL)1,20,16,a$
404 (NULL)1,6,1
405 (NULL)1,27,19,"+---------/"
406 (NULL)1,26,20,"+-----------/"
407 a=2
408 (NULL)
409 (NULL)1,3,3
410 (NULL)1,21,16,a$
411 (NULL)1,10,1
412 fora=7to18
413 (NULL)1,35,a,"-"
414 next
415 a=3
416 (NULL)
417 (NULL)1,3,3
418 (NULL)1,22,16,a$
419 (NULL)1,10,1
420 (NULL)1,29,7,"------[157];"
421 (NULL)1,8,3
422 (NULL)1,29,8,"<="
423 a=4
424 (NULL)
425 (NULL)1,3,3
426 (NULL)1,23,16,a$
427 (NULL)1,9,4
428 (NULL)1,29,9,">[192]"
429 (NULL)1,29,10,"[193][194]"
430 a=5
431 (NULL)
432 (NULL)1,3,3
433 (NULL)1,24,16,a$
434 (NULL)1,29,11,"[195][196]"
435 (NULL)1,29,12,"-[197]"
436 (NULL)1,29,13,"-[197]"
437 a=6
438 (NULL)
439 (NULL)1,3,3
440 (NULL)1,25,16,a$
441 (NULL)1,28,11,"[198]"
442 (NULL)1,28,12,"[200]"
443 (NULL)1,28,13,"[202]"
444 (NULL)1,28,14,"[203]"
445 a=7
446 (NULL)
447 (NULL)1,3,3
448 (NULL)1,26,16,a$
449 (NULL)1,31,11,"[199]"
450 (NULL)1,31,12,"[201]"
451 (NULL)1,31,13,"[202]"
452 (NULL)1,31,14,"[203]"
453 a=8
454 (NULL)
455 (NULL)1,7,1
456 (NULL)1,29,14,"[204][205]"
457 (NULL)1,29,15,"[206][207]"
458 (NULL)1,29,16,"[206][207]"
459 (NULL)1,10,0
460 (NULL)1,29,17,"[208][208]"
461 (NULL)1,8,6
462 (NULL)1,(28-len(b$))/2,10,"[130]"+b$
463 (NULL)8
464 restore256
465 (NULL)
466 reada,b
467 ifa=-1then(NULL)
468 (NULL)1,a,b
469 (NULL)1,1020,2
470 (NULL)
471 poke65286,11
472 poke216,(peek(216)+1)and255
473 print"[147]"
474 (NULL)1,16,5
475 (NULL)1,14,0,"_[#_]%'[)]%"
476 (NULL)1,14,1,chr$(34)+"\$"+chr$(34)+"^&(\*^&"
477 (NULL)1,3,5
478 (NULL)1,2,6,"b[216][160][215][213][223] [163][209][223][213][220]"+str$(peek(216))+" w[166][223][161][213][223] [165][162] [213][223][223][209][161][213][220]."
479 (NULL)1,2,8,"e[160] [163][162][223][212][213][220]"+str$(peek(217))+" w[166][223][161][213][223] [213][223][223][209][161][213][220]."
480 (NULL)1,6,13,"m[166][211][215][161][213][220] s[216][213] [163][213][216][161][213][223] [160][255][216][213][218][213][220] ?"
481 (NULL)1,12,15,"j[209] [221][212][213][223] n[213][216][220] ?"
482 poke65286,27
483 poke239,0
484 get(NULL)a$
485 ifa$<>"n"thenrun268
486 sys65529